home *** CD-ROM | disk | FTP | other *** search
/ Internet Surfer: Getting Started / Internet Surfer - Getting Started (Wayzata Technology)(7231)(1995).bin / pc / mac / bonus / peter_le / talk_sou / my_libra / myassert.uni < prev    next >
Text File  |  1992-04-20  |  268b  |  18 lines
  1. unit MyAssertions;
  2.  
  3. { This program was written by Peter N Lewis, Mar 1992 in THINK Pascal 4.0.1 }
  4.  
  5. interface
  6.  
  7.     procedure Assert (b: boolean);
  8.  
  9. implementation
  10.  
  11.     procedure Assert (b: boolean);
  12.     begin
  13.         if not b then begin
  14.             DebugStr('Assert Failed');
  15.         end;
  16.     end;
  17.  
  18. end.